home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getscr4r / frmbrows.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-02  |  8.5 KB  |  246 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form frmBrowser 
  5.    Caption         =   "Browser"
  6.    ClientHeight    =   4830
  7.    ClientLeft      =   180
  8.    ClientTop       =   315
  9.    ClientWidth     =   11610
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4830
  12.    ScaleWidth      =   11610
  13.    Begin MSComctlLib.Toolbar tbToolBar 
  14.       Align           =   1  'Align Top
  15.       Height          =   540
  16.       Left            =   0
  17.       TabIndex        =   1
  18.       Top             =   0
  19.       Width           =   11610
  20.       _ExtentX        =   20479
  21.       _ExtentY        =   953
  22.       ButtonWidth     =   820
  23.       ButtonHeight    =   794
  24.       Appearance      =   1
  25.       ImageList       =   "imlIcons"
  26.       _Version        =   393216
  27.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  28.          NumButtons      =   9
  29.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  30.             Key             =   "Back"
  31.             Object.ToolTipText     =   "Back"
  32.             ImageIndex      =   1
  33.          EndProperty
  34.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Key             =   "Forward"
  36.             Object.ToolTipText     =   "Forward"
  37.             ImageIndex      =   2
  38.          EndProperty
  39.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Style           =   3
  41.          EndProperty
  42.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  43.             Key             =   "Stop"
  44.             Object.ToolTipText     =   "Stop"
  45.             ImageIndex      =   3
  46.          EndProperty
  47.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  48.             Key             =   "Refresh"
  49.             Object.ToolTipText     =   "Refresh"
  50.             ImageIndex      =   4
  51.          EndProperty
  52.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  53.             Style           =   3
  54.          EndProperty
  55.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  56.             Key             =   "Home"
  57.             Object.ToolTipText     =   "Home"
  58.             ImageIndex      =   5
  59.          EndProperty
  60.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  61.             Style           =   3
  62.          EndProperty
  63.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  64.             Key             =   "Search"
  65.             Object.ToolTipText     =   "Search"
  66.             ImageIndex      =   6
  67.          EndProperty
  68.       EndProperty
  69.       BorderStyle     =   1
  70.       Begin VB.PictureBox Picture1 
  71.          BorderStyle     =   0  'None
  72.          Height          =   495
  73.          Left            =   3240
  74.          ScaleHeight     =   495
  75.          ScaleWidth      =   8295
  76.          TabIndex        =   2
  77.          Top             =   0
  78.          Width           =   8295
  79.          Begin VB.TextBox Text1 
  80.             BackColor       =   &H8000000F&
  81.             BorderStyle     =   0  'None
  82.             Height          =   255
  83.             Left            =   0
  84.             Locked          =   -1  'True
  85.             TabIndex        =   4
  86.             Text            =   "Ready"
  87.             Top             =   60
  88.             Width           =   8175
  89.          End
  90.          Begin MSComctlLib.ProgressBar ProgressBar1 
  91.             Height          =   135
  92.             Left            =   0
  93.             TabIndex        =   3
  94.             Top             =   315
  95.             Width           =   4215
  96.             _ExtentX        =   7435
  97.             _ExtentY        =   238
  98.             _Version        =   393216
  99.             BorderStyle     =   1
  100.             Appearance      =   0
  101.          End
  102.       End
  103.    End
  104.    Begin SHDocVwCtl.WebBrowser brwWebBrowser 
  105.       Height          =   3735
  106.       Left            =   0
  107.       TabIndex        =   0
  108.       Top             =   600
  109.       Width           =   5400
  110.       ExtentX         =   9525
  111.       ExtentY         =   6588
  112.       ViewMode        =   1
  113.       Offline         =   0
  114.       Silent          =   0
  115.       RegisterAsBrowser=   0
  116.       RegisterAsDropTarget=   0
  117.       AutoArrange     =   -1  'True
  118.       NoClientEdge    =   -1  'True
  119.       AlignLeft       =   0   'False
  120.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  121.       Location        =   ""
  122.    End
  123.    Begin VB.Timer timTimer 
  124.       Enabled         =   0   'False
  125.       Interval        =   5
  126.       Left            =   6180
  127.       Top             =   1500
  128.    End
  129.    Begin MSComctlLib.ImageList imlIcons 
  130.       Left            =   2670
  131.       Top             =   2325
  132.       _ExtentX        =   1005
  133.       _ExtentY        =   1005
  134.       BackColor       =   -2147483643
  135.       ImageWidth      =   24
  136.       ImageHeight     =   24
  137.       MaskColor       =   12632256
  138.       _Version        =   393216
  139.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  140.          NumListImages   =   6
  141.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.             Picture         =   "frmBrowser.frx":0000
  143.             Key             =   ""
  144.          EndProperty
  145.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  146.             Picture         =   "frmBrowser.frx":02E2
  147.             Key             =   ""
  148.          EndProperty
  149.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  150.             Picture         =   "frmBrowser.frx":05C4
  151.             Key             =   ""
  152.          EndProperty
  153.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  154.             Picture         =   "frmBrowser.frx":08A6
  155.             Key             =   ""
  156.          EndProperty
  157.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  158.             Picture         =   "frmBrowser.frx":0B88
  159.             Key             =   ""
  160.          EndProperty
  161.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  162.             Picture         =   "frmBrowser.frx":0E6A
  163.             Key             =   ""
  164.          EndProperty
  165.       EndProperty
  166.    End
  167. Attribute VB_Name = "frmBrowser"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Option Explicit
  173. Public StartingAddress As String
  174. Dim mbDontNavigateNow As Boolean
  175. Private Sub brwWebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  176. On Error Resume Next
  177. ProgressBar1.Max = ProgressMax
  178. ProgressBar1.Value = Progress
  179. End Sub
  180. Private Sub brwWebBrowser_StatusTextChange(ByVal Text As String)
  181. On Error Resume Next
  182. Text1.Text = Text
  183. End Sub
  184. Private Sub brwWebBrowser_TitleChange(ByVal Text As String)
  185.   On Error Resume Next
  186.     Me.Caption = brwWebBrowser.LocationName
  187. End Sub
  188. Private Sub Form_Load()
  189.     On Error Resume Next
  190.     Me.Show
  191.     tbToolBar.Refresh
  192.     Form_Resize
  193. End Sub
  194. Private Sub brwWebBrowser_DownloadComplete()
  195.     On Error Resume Next
  196.     Me.Caption = brwWebBrowser.LocationName
  197. End Sub
  198. Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
  199. End Sub
  200. Private Sub cboAddress_Click()
  201.     If mbDontNavigateNow Then Exit Sub
  202.     timTimer.Enabled = True
  203.     brwWebBrowser.Navigate frmAddIn.Combo1.Text
  204. End Sub
  205. Private Sub cboAddress_KeyPress(KeyAscii As Integer)
  206.     On Error Resume Next
  207.     If KeyAscii = vbKeyReturn Then
  208.         cboAddress_Click
  209.     End If
  210. End Sub
  211. Private Sub Form_Resize()
  212. On Error Resume Next
  213.   brwWebBrowser.Width = Me.ScaleWidth - 50
  214. brwWebBrowser.Height = Me.ScaleHeight - tbToolBar.Height - 100
  215. End Sub
  216. Private Sub timTimer_Timer()
  217.     If brwWebBrowser.Busy = False Then
  218.         timTimer.Enabled = False
  219.         Me.Caption = brwWebBrowser.LocationName
  220.     Else
  221.         Me.Caption = "Working..."
  222.     End If
  223. End Sub
  224. Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
  225.     On Error Resume Next
  226.      
  227.     timTimer.Enabled = True
  228.      
  229.     Select Case Button.Key
  230.         Case "Back"
  231.             brwWebBrowser.GoBack
  232.         Case "Forward"
  233.             brwWebBrowser.GoForward
  234.         Case "Refresh"
  235.             brwWebBrowser.Refresh
  236.         Case "Home"
  237.             brwWebBrowser.GoHome
  238.         Case "Search"
  239.             brwWebBrowser.GoSearch
  240.         Case "Stop"
  241.             timTimer.Enabled = False
  242.             brwWebBrowser.Stop
  243.             Me.Caption = brwWebBrowser.LocationName
  244.     End Select
  245. End Sub
  246.